home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / LETTERS.ARC / RUN ME FIRST (.txt) < prev   
Commodore BASIC  |  2019-04-13  |  2KB  |  51 lines
  1. 0 REM----DOCUMENTATION MAKER V.2.0----       ----------BY TOM BROWN-----------
  2. 1 POKE53281,15:POKE53280,15:POKE646,0:REM .......SEE NOTES IN LINE 42-45.......
  3. 1000 PG$="COLLECTION LETTERS.DOCS           "
  4. 1001 INPUT"[147]SELECT:[146] <S>CREEN <P>RINTER";A$:IFA$="P"THEN1007
  5. 1002 PRINT"[147]   ";PG$;"   [146]":FORX=1TO20:READA$:IFA$="[255]"THENRESTORE:GOTO1004
  6. 1003 PRINTA$:NEXT
  7. 1004 PRINT"PRESS ANY KEY TO CONTINUE[146]"
  8. 1005 GETB$:IFB$=""THEN1005
  9. 1006 GOTO1002
  10. 1007 OPEN4,4:PRINT#4,PG$:PRINT#4," "
  11. 1008 READA$:IFA$="[255]"THENCLOSE4:END
  12. 1009 PRINTA$:PRINT#4,A$:GOTO1008
  13. 1010 DATA"     [212]HIS PROGRAM PROVIDES A FAST,
  14. 1011 [131]"EASY METHOD OF PREPARING THOSE DIS-
  15. 1012 DATA"TASTEFUL (BUT NECESSARY) COLLECTION
  16. 1013 [131]"NOTICES EVERY SMALL BUSINESS PERSON
  17. 1014 DATA"NEEDS FROM TIME TO TIME.
  18. 1015 [131]"     (null)HE PROGRAM WAS DESIGNED TO RUN
  19. 1016 DATA"WITH THE [195]OMMODORE 64, A 1541 DRIVE, &
  20. 1017 [131]"A LENOMMODORE COMPATIBLE PRINTER.  (null)THER
  21. 1018 DATA"CONFIGURATIONS MAY ALSO WORK.
  22. 1019 [131]"     ASCIRST, THERE ARE SEVERAL LINES
  23. 1020 DATA"THAT NEED TO BE CHANGED TO CUSTOMIZE
  24. 1021 [131]"THE PROGRAM FOR YOUR INDIVIDUAL NEEDS.
  25. 1022 DATA"     [204]INE #          [208][213][210][208][207][211][197]
  26. 1023 [131]"       650          (null)OUR COMANY NAME
  27. 1024 DATA"       670          [217]OUR ADDRESS
  28. 1025 [131]"       690          LENITY AND (null)TATE
  29. 1026 DATA"       710          [208]HONE NUMBER
  30. 1027 [131]"      1160          (null)ENDER'S NAME
  31. 1028 DATA"      1200          [211]ENDER'S INITIALS
  32. 1029 [131]"
  33. 1030 DATA"     [211]IMPLY FOLLOW THE FORMAT PRESENT
  34. 1031 [131]"AND YOU SHOULD HAVE NO TROUBLE.
  35. 1032 DATA"     [212]HE PROGRAM WILL DISPLAY A TITLE
  36. 1033 [131]"SCREEN ((null)LEASE LEAVE INTACT) AND THEN
  37. 1034 DATA"PROMPT FOR INPUT.  [212]HE PROMPTS ARE
  38. 1035 [131]"FAIRLY CLEAR AND SHOULD NEED NO EX-
  39. 1036 DATA"PLANATION.  [201]T WILL LOOP THROUGH FOR
  40. 1037 [131]"EACH INVOICE YOU HAVE FOR THAT ACCOUNT
  41. 1038 DATA"AND THEN PRINT THE LETTER.
  42. 1039 [131]"     RIGHT$ HOPE THIS HELPS YOU AS MUCH AS
  43. 1040 DATA"IT DID ME.  [201]T SEEMS THAT JUST THE
  44. 1041 [131]"SIGHT OF THE LETTERS INDUCED THOSE
  45. 1042 DATA"SLOW PAYERS TO SEND REMITTANCE.  [211]URE
  46. 1043 [131]"HELPED CASH FLOW!
  47. 1044 DATA"
  48. 1045 [131]"       ----====>(null).LEFT$ATN(null)LENLEFT$<====----
  49. 1046 DATA"               ON  [199][197]NIE
  50. 1055 [131]"(null)
  51.